AFt's Last-Seen Script v1.0 
                    Part of new upcoming script:
                        -[§WËÊt rËvëñGÊ]-

This script keeps records of everybody that parts, quits, gets kicked,
or otherwise leaves a channel.  You can use this to look up a nick
and see what time they left and from where or why, or you can have
other users use it to look for their friends.
In a channel, users type "seen <nick>" or in a /msg, ".seen <nick>".

                    Paste this in Remote/Events:


1:ON QUIT: {
  %lastseen = $readini $mircdirtoggles.ini Settings lastseen
  %timefirstpart = $token(1,$asc(:),$time) | if (%timefirstpart > 12) { dec %timefirstpart 12 | set %timepm [YES] } | if (%timepm = [YES]) { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) pm } | else { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) am }
  if (%lastseen == [ON]) { %nick = $remove($nick,]) | %nick = $remove(%nick,[) | writeini $mircdirseen.rvg Lastseen %nick $nick lastseen on $day $+, $adate at %time $+ , Quit IRC with  $+ $parms $+  as the quit message. }
}
1:ON PART:#: {
  %lastseen = $readini $mircdirtoggles.ini Settings lastseen
  %timefirstpart = $token(1,$asc(:),$time) | if (%timefirstpart > 12) { dec %timefirstpart 12 | set %timepm [YES] } | if (%timepm = [YES]) { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) pm } | else { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) am } 
  if (%lastseen == [ON]) { %nick = $remove($nick,]) | %nick = $remove(%nick,[) | writeini $mircdirseen.rvg Lastseen %nick $nick lastseen on $day $+, $adate at %time $+ , leaving $chan }
}
1:ON KICK:#: {
  %lastseen = $readini $mircdirtoggles.ini Settings lastseen
  %timefirstpart = $token(1,$asc(:),$time) | if (%timefirstpart > 12) { dec %timefirstpart 12 | set %timepm [YES] } | if (%timepm = [YES]) { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) pm } | else { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) am }
  if (%lastseen == [ON]) { %nick = $remove($nick,]) | %nick = $remove(%nick,[) | writeini $mircdirseen.rvg Lastseen %nick $nick lastseen on $day $+, $adate at %time $+ , getting kicked out of $chan }
}
1:ON TEXT:seen *:#: {
  %nick = $remove($parm2,]) | %nick = $remove(%nick,[) | %seen = $readini $mircdirseen.rvg LastSeen %nick
  if (%seen == $null) { msg $chan [§WËÊt rËvëñGÊ] - Have not seen $parm2 | halt } | else { msg $chan [§WËÊt rËvëñGÊ] - %seen }
}  
1:ON TEXT:.seen *:?: {
  %nick = $remove($parm2,]) | %nick = $remove(%nick,[) | %seen = $readini $mircdirseen.rvg LastSeen %nick
  if (%seen == $null) { msg $nick [§WËÊt rËvëñGÊ] - Have not seen $parm2 | halt } | else { msg $nick [§WËÊt rËvëñGÊ] - %seen }
}  


                      Paste this in Popups:


Last Seen
.Seen On:writeini $mircdirtoggles.ini Settings lastseen [ON]
.Seen Off:writeini $mircdirtoggles.ini Settings lastseen [OFF]
.-
.Look Up Nick:{
  %nick = $remove($$?="Enter Nick",]) | %nick = $remove(%nick,[) | %seen = $readini $mircdirseen.rvg LastSeen %nick
  if (%seen == $null) { echo 4 [§WËÊt rËvëñGÊ] - Have not seen $$! | halt } | else { echo 4 [§WËÊt rËvëñGÊ] - %seen }
}